'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 12 December 2011 at 4:46 pm'!TestCase subclass: #OceanoTeste	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Batalha_Naval_Teste'!!OceanoTeste methodsFor: 'as yet unclassified' stamp: 'KeA 12/12/2011 16:46'!testeCriaOceanoComTodasAsCelulasAgua	|oceano|	oceano := Oceano oceanoComColunas: 10 eLinhas:10.		1 to: oceano colunas do: [ : coluna | 		1 to: oceano linhas do: [ : linha |			self assert: #Agua equals: (oceano celulaNaPosicao: (coluna@linha)) conteudo. 						].		 ].		! !!OceanoTeste methodsFor: 'as yet unclassified' stamp: 'KeA 12/12/2011 15:35'!testeCriacaoDoOceano	|oceano|	oceano := Oceano oceanoComColunas: 10 eLinhas:10.			self assert: 10 equals: oceano linhas.		self assert: 10 equals: oceano colunas.! !